home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1992 January / 1992-01.d64 / ms demo 2 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  601b  |  29 lines
  1. 10 sys 49152
  2. 20 v1=53153:v2=53201
  3. 30 for i=832 to 894:poke i,255:next
  4. 40 poke v1+32,0:poke v1+33,0
  5. 50 poke v2+32,0:poke v2+33,0
  6. 55 poke v1+21,255
  7. 56 poke v2+21,255
  8. 60 for i=0 to 7:poke 2040+i,13
  9. 70 poke v1+39+i,i+2:poke v2+39+i,i+2
  10. 80 next
  11. 90 poke v1+29,0:poke v2+29,0
  12. 95 poke v1+23,0:poke v2+23,0
  13. 100 poke v1+28,0:poke v2+28,0
  14. 110 for i=0 to 15:x=24+i*20:y=128
  15. 120 gosub 1000
  16. 130 next
  17. 140 print chr$(5);chr$(147);tab(8);"you now have 16 sprites,"
  18. 150 print tab(10);"on-screen, at once!!"
  19. 160 end
  20. 1000 a=0:j=i:if j>=8 then a=48
  21. 1010 j=j and 7
  22. 1020 poke v1+a+j*2,x and 255
  23. 1030 b=peek(v1+a+16):c=2^j
  24. 1040 if x>=256 then 1060
  25. 1050 poke v1+a+16,b and (255-c):goto 1070
  26. 1060 poke v1+a+16,b or c
  27. 1070 poke v1+a+j*2+1,y
  28. 1080 return
  29.